Option Strict On

Public Class CPassword

  ' ============= Stae symboliczne ======================

  Private Const MINLENGTH As Integer = 4    ' Haso musi mie 4-30 znakw
  Private Const MAXLENGTH As Integer = 30

  Private Const MINSECURITY As Integer = 1  ' Poziomy uprawnie
  Private Const MAXSECURITY As Integer = 10

  ' ================= Dane Private ========================

  Private Structure Security
    Dim User As String            ' Uytkownik programu
    Dim Pass As String            ' Haso
    Dim SecurityLevel As Integer  ' Poziom bezpieczestwa 
  End Structure

  Private Shared mUserCount As Integer   ' Liczba uytkownikw

  Private Shared mUserList() As Security ' Lista uytkownikw

  Private Check As Integer
  Private EncodedPW As String
  Private DecodedPW As String
